5 POKE55,.:POKE56,56:CLR
10 DV=PEEK(186):IFDV<8THENDV=8
15 POKE53280,0:POKE53281,0:PRINT"[147]"
16 POKE53371,0
25 POKE53272,31
30 AD=49152
35 SYSAD:SYSAD+12
100 REM RIGOROUS PRECESSION
105 REM (J2000.0)
110 P1=(null):R1=P1/180
112 BX$="[158]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_"
113 SB$="[153]_[157]_[157]_[157]_[157]_[157]_[157]_"
114 TQ=TI
115 E0=2000:A$="A"
120 PRINT"[147]":SYSAD+9,6:POKE53272,31
121 PRINT"[153]   ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
122 PRINTTAB(3)SB$;""TAB(33)SB$
123 PRINT"[153]   ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
124 POKE214,2:PRINT:PRINTTAB(9)"[129][211][212][193][210] [204][207][195][193][212][207][210] [208][210][207][199][210][193][205]!"
125 POKE214,4:PRINT:PRINTTAB(5)"[158][201]NITIAL [197]POCH [155](YR) ";:L9%=4:GOSUB670:IE=Q9
130 PRINT:PRINTTAB(5)"[158][198]INAL [197]POCH [155](YR):";:L9%=7:GOSUB670:FE=Q9
135 IFABS(IE-FE)<=500 THEN150
140 POKE214,10:PRINT:PRINTTAB(9)"[212]IME SPAN TOO LONG!"
141 TQ=TI
142 IFTI<TQ+200THEN142
145 GOTO120
150 PRINT"[147]":SYSAD+9,17:GOSUB415
151 PRINT"[158]^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
152 PRINTBX$;""TAB(38)BX$
153 PRINT"[158]^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
155 IFA$="N"THEN185
160 PRINT"":PRINTTAB(9)"[153] [201]NITIAL [197]POCH [146][158]";IE
165 PRINTTAB(3)"[154][210].[193]. ";
170 GOSUB350:A=V
175 PRINTTAB(3)"[150][196]EC  ";
180 GOSUB350:D=V
185 MA=0:MD=0:GOSUB570
190 A2=A1:D2=D1
195 IFA$="N"THEN220
200 PRINTTAB(9)"[153] [208]ROPER [205]OTION IN "
205 PRINTTAB(3)"[159][210].[193]. [155](SEC/YR) ";:L9%=7:GOSUB670:M1=Q9
210 PRINTTAB(3)"[159][196]EC. [155](ARCSEC/YR) ";:L9%=7:GOSUB670:M2=Q9
215 PRINTTAB(1)"[158]^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^":SYSAD+9,8
220 MA=M1:MD=M2:GOSUB570
225 V=A1:GOSUB380
230 PRINTTAB(9)"[153] [198]INAL [197]POCH [146][158] ";FE
235 PRINTTAB(3)"[159][210].[193]. [155](H,M,S):[158] ";
240 PRINTV1;V2;V3
245 V=D1:GOSUB380
250 PRINTTAB(3)"[159][196]EC. [155](D,M,S):[158] ";S$;
255 PRINTV1;V2;V3
260 A3=(A1-A2)*3600/NY
265 D3=(D1-D2)*3600/NY
270 PRINTTAB(9)"[153] [208]ROPER [205]OTION IN "
275 PRINTTAB(3)"[159][210].[193]. [155](SEC/YR):[158] ";
280 PRINTA3
285 PRINTTAB(3)"[159][196]EC. [155](ARCSEC/YR):[158] ";
290 PRINTD3
295 PRINT
300 PRINTTAB(9)"[159] [211]ELECT [207]NE [208]LEASE:[146] "
305 PRINTTAB(3)"[150]([193])[153]NOTHER [211]TAR   [150]([206])[153]EW [198]INAL [197]POCH"
315 PRINTTAB(11)"[150]([213])[153]NIVERSE [205]ENU
320 [161]A$:[139]A$[179][177]"A"[175]A$[179][177]"N"[175]A$[179][177]"U"[167]320
325 [139]A$[178]"A"[167]150
330 [139]A$[178]"N"[167]110
335 [139]A$[178]"U"[167]3050
350 [143] INPUT SEXAGESIMAL
355 S[178]1:[153]"CONTHOUR/DEFDEGREE (DEF+/-):";:L9%[178]3:[141]670:Q9[178][197](Q9$):V$[178]Q9$
356 [153][163]9)"CONTMINUTES:";:L9%[178]4:[141]670:V2[178]Q9
357 [153][163]9)"CONTSECONDS:";:L9%[178]3:[141]670:V3[178]Q9
360 [139][200](V$,1)[178]"-"[167]S[178][171]1
365 V1[178][182]([197](V$))
370 V[178]S[172](V1[170]V2[173]60[170]V3[173]3600)
375 [142]
380 [143] OUTPUT SEXAGESIMAL
385 S$[178]"+":[139]V[179]0[167]S$[178]"-"
390 V[178][182](V):V1[178][181](V)
395 VM[178]60[172](V[171]V1):V2[178][181](VM)
400 V3[178]60[172](VM[171]V2)
405 [142]
410 :
415 [143] PRESSION PARAMETERS
420 NY[178]FE[171]IE
425 T0[178](IE[171]E0)[173]100:T1[178]NY[173]100
430 T2[178]T1[172]T1:T3[178]T1[172]T1[172]T1
435 H1[178]2306.2181:H2[178]1.39656
440 H3[178].000139:H4[178].30188
445 H5[178].000345:H6[178].017998
450 K1[178]1.09468:K2[178].000066
455 K3[178].018203
460 L1[178]2004.3109:L2[178][171].8533
465 L3[178][171].000217:L4[178][171].42665
470 L5[178][171].000217:L6[178][171].041833
475 W[178](H1[170]H2[172]T0[170]H3[172]T0[172]T0)[172]T1
480 ZT[178]W[170](H4[170]H5[172]T0)[172]T2[170]H6[172]T3
485 ZD[178]W[170](K1[170]K2[172]T0)[172]T2[170]K3[172]T3
490 TH[178](L1[170]L2[172]T0[170]L3[172]T0[172]T0)[172]T1
495 TH[178]TH[170](L4[170]L5[172]T0)[172]T2[170]L6[172]T3
500 ZT[178]ZT[172]R1[173]3600:ZD[178]ZD[172]R1[173]3600
505 TH[178]TH[172]R1[173]3600
510 [143] ZT,ZD,TH = EULER AMGLES
515 :
520 [143] ROTATION MATRIX
525 S1[178][191](ZT):C1[178][190](ZT)
530 S2[178][191](ZD):C2[178][190](ZD)
535 S3[178][191](TH):C3[178][190](TH)
540 XX[178]C1[172]C3[172]C2[171]S1[172]S2
545 YX[178][171]S1[172]C3[172]C2[171]C1[172]S2:ZX[178][171]S3[172]C2
550 XY[178]C1[172]C3[172]S2[170]S1[172]C2
555 YY[178][171]S1[172]C3[172]S2[170]C1[172]C2:ZY[178][171]S3[172]S2
560 XZ[178]C1[172]S3:YZ[178]S1[172]S3:ZZ[178]C3
565 [142]
570 [143] PROPER MOTION CORRECTION
575 A0[178](A[170]MA[172]NY[173]3600)[172]15[172]R1
580 D0[178](D[170]MD[172]NY[173]3600)[172]R1
585 :
590 [143] SHERICAL RECTANGULAR
595 SA[178][191](A0):CA[178][190](A0)
600 SD[178][191](D0):CD[178][190](D0)
605 X0[178]CA[172]CD:Y0[178]SA[172]CD:Z0[178]SD
610 [143] 3-D TRANSFORMATION
615 X1[178]X0[172]XX[170]Y0[172]YX[170]Z0[172]ZX
620 Y1[178]X0[172]XY[170]Y0[172]YY[170]Z0[172]ZY
625 Z1[178]X0[172]XZ[170]Y0[172]YZ[170]Z0[172]ZZ
630 [143] RECTANGULAR SPERICAL
635 A1[178][193](Y1[173]X1)
640 [139]X1[179]0[167]A1[178]A1[170]P1
645 [139]A1[179]0[167]A1[178]A1[170]2[172]P1
650 A1[178]A1[173](R1[172]15):[143] FINAL R.A.
655 D1[178][193](Z1[173][186](X1[172]X1[170]Y1[172]Y1))
660 D1[178]D1[173]R1:[143] FINAL DEC.
665 [142]
670 Q9$[178]"":[151]198,.
675 [161]A$
680 [151]646,[187](1)[172]15[170]1:[153]"*CMD";:[139]A$[178]""[167]675
685 [139]A$[178][199](13)[167][153]" ":Q9[178][197](Q9$):[142]
690 [139](A$[178][199](20)[175][195](Q9$))[167]Q9$[178][200](Q9$,[195](Q9$)[171]1):[137]720
695 [139][195](Q9$)[177][178]L9%[167][158]AD[170]9,1:[137]675
700 [139](A$[177][178]"0"[175]A$[179][178]"9")[176]A$[178]"."[176]A$[178]"-"[176]A$[178]"+"[167]710
705 [137]675
710 Q9$[178]Q9$[170]A$
715 [153]"SYS"A$;:[158]AD[170]9,7:[137]675
720 [153]" CMDCMD CMD";:[137]675
3050 [158]AD[170]15
3060 [153]"LOADSTOPLOAD"[199](34)"B.UNIVERSE III"[199](34)","DV
3070 [153]"RUN28"
3080 [151]631,13:[151]632,13:[151]198,2:[128]
10000 D[178][194](186):N$[178]"0:STAR LOCATOR":[159]15,D,15,"S"[170]N$:[160]15:[148]N$,D:[128]